home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / basic / scrbuild.zip / CODE.TXT next >
Encoding:
Text File  |  1991-10-16  |  2.7 KB  |  123 lines
  1. CLS
  2. COLOR  7  , 0 
  3. FOR i = 1 TO 23
  4. LOCATE i, 1
  5. PRINT STRING$(79, 178)
  6. NEXT
  7. FOR i =  1  TO  6         'print basic box
  8. IF i =  1  OR i =  6  THEN 
  9. LOCATE i,  12 , 0 
  10. COLOR  7 ,  0 
  11. PRINT STRING$( 55 ,  219 )   'bottom edge 
  12. ELSE                                      'else print sides
  13. LOCATE i,  12 
  14. PRINT CHR$( 219 )
  15. LOCATE i,  66 
  16.  PRINT CHR$( 219 )
  17. LOCATE i,  13 
  18. PRINT STRING$( 53 , 32) 
  19. END IF
  20. NEXT
  21. 'add shadowing
  22. FOR i =  2  TO  7 
  23.                    'add right edge
  24. LOCATE i,  67 
  25. PRINT STRING$(2,  177 )
  26. IF i >  6  THEN                      'print bottom
  27. LOCATE i,  14 
  28. PRINT STRING$( 54 ,  177 ) 
  29. END IF
  30. NEXT
  31. FOR i =  9  TO  21      'print basic box
  32. IF i >=  9  OR i <=  21  THEN    'print box filler
  33. LOCATE i , 62 , 0 
  34. COLOR  7 , 1 
  35. PRINT STRING$( 13 ,  219 )  
  36. END IF
  37. NEXT
  38.         'add shadowing
  39. FOR i =  10  TO  22     'add right edge
  40. LOCATE i,  75 
  41. PRINT STRING$(2,  177 )
  42. IF i >  21  THEN                      'print bottom
  43. LOCATE i,  64 
  44. PRINT STRING$( 12 ,  177 )
  45. END IF
  46. NEXT
  47. CLS
  48. COLOR  7  , 0 
  49. FOR i = 1 TO 23
  50. LOCATE i, 1
  51. PRINT STRING$(79, 178)
  52. NEXT
  53. FOR i =  9  TO  21         'print basic box
  54. IF i =  9  OR i =  21  THEN 
  55. LOCATE i,  26 , 0 
  56. COLOR  7 ,  0 
  57. PRINT STRING$( 32 ,  219 )   'bottom edge 
  58. ELSE                                      'else print sides
  59. LOCATE i,  26 
  60. PRINT CHR$( 219 )
  61. LOCATE i,  57 
  62.  PRINT CHR$( 219 )
  63. LOCATE i,  27 
  64. PRINT STRING$( 30 , 32) 
  65. END IF
  66. NEXT
  67. 'add shadowing
  68. FOR i =  10  TO  22 
  69.                    'add right edge
  70. LOCATE i,  58 
  71. PRINT STRING$(2,  177 )
  72. IF i >  21  THEN                      'print bottom
  73. LOCATE i,  28 
  74. PRINT STRING$( 31 ,  177 ) 
  75. END IF
  76. NEXT
  77. CLS
  78. COLOR  7  , 0 
  79. FOR i = 1 TO 23
  80. LOCATE i, 1
  81. PRINT STRING$(79, 178)
  82. NEXT
  83. FOR i =  9  TO  14         'print basic box
  84. IF i =  9  OR i =  14  THEN 
  85. LOCATE i,  6 , 0 
  86. COLOR  7 ,  0 
  87. PRINT STRING$( 13 ,  219 )   'bottom edge 
  88. ELSE                                      'else print sides
  89. LOCATE i,  6 
  90. PRINT CHR$( 219 )
  91. LOCATE i,  18 
  92.  PRINT CHR$( 219 )
  93. LOCATE i,  7 
  94. PRINT STRING$( 11 , 32) 
  95. END IF
  96. NEXT
  97. 'add shadowing
  98. FOR i =  10  TO  15 
  99.                    'add right edge
  100. LOCATE i,  19 
  101. PRINT STRING$(2,  177 )
  102. IF i >  14  THEN                      'print bottom
  103. LOCATE i,  8 
  104. PRINT STRING$( 12 ,  177 ) 
  105. END IF
  106. NEXT
  107. FOR i =  17  TO  21      'print basic box
  108. IF i >=  17  OR i <=  21  THEN    'print box filler
  109. LOCATE i , 2 , 0 
  110. COLOR  7 , 1 
  111. PRINT STRING$( 21 ,  219 )  
  112. END IF
  113. NEXT
  114.         'add shadowing
  115. FOR i =  18  TO  22     'add right edge
  116. LOCATE i,  23 
  117. PRINT STRING$(2,  177 )
  118. IF i >  21  THEN                      'print bottom
  119. LOCATE i,  4 
  120. PRINT STRING$( 20 ,  177 )
  121. END IF
  122. NEXT
  123.